home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
DATABASE
/
FOXRYAN.ZIP
/
VERIFY9.PRG
< prev
Wrap
Text File
|
1993-07-28
|
1KB
|
42 lines
m.crlf = chr(13)+chr(10)
for m.i = 1 to 22
m.form = "form" + alltrim(str(m.i))
m.dbfile = m.form + ".dbf"
for m.j = 1 to 13
m.k = m.j + 1
m.letter = iif(m.j = 0, "", chr(m.j-1+asc("A")))
m.nextletter = iif(m.k = 0, "", chr(m.k-1+asc("A")))
m.scrfile = m.form + alltrim(m.letter) + ".scx"
m.nextscrfile = m.form + alltrim(m.nextletter) + ".scx"
?m.scrfile
select 0
if not file(m.scrfile) or not file(m.nextscrfile)
exit
endif
use &scrfile alias screen
go top
* Take care of screen setup and cleanup code.
locate for screen.objtype=1
m.proccode = "if m.domore" + m.crlf + " do " + m.form + ;
alltrim(m.nextletter) + ".spr" + m.crlf + "endif" + m.crlf
m.setupcode = "m.domore = .F." + m.crlf
gather memvar memo fields screen.proccode, screen.setupcode
* Make the Next button terminating and add a valid clase
go top
locate for screen.objtype=12
do while not eof()
m.picture = screen.picture
if at("Ne\<xt Pag", m.picture) > 0
m.picture = '"@*TH Ne\<xt Page"'
replace screen.picture with m.picture
m.valid = "m.domore = .T." + m.crlf
gather memvar memo fields screen.valid
endif
continue
enddo
use
endfor
endfor